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vO3-010 LMP0294 Mark Pilan 2-Aug-1984 15:54 
Add the dollar a to the ist of legal characters. 


v03-009 PRBO333 ul Peck a-eayat5es 22:26 
Fix fork block inte alization for Q command. 


V03-008 ACG0416 Andrew C. Soldstein. 18-Apr-1984 9:51 
Use common 1/0 search routines to support cluster devices 


v03-007 > ees aul B 9-Apr-1984 15:59 
d retry logic Ae Ast to CNXSCHA GE _QUORUM. 
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¢ ; v03-005 
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65 ; 
66 ; v03=004 
67 ; 
0 yt: : 
09 $3 : 
0 71: v03-003 
00 ue 5 
00 73: 
00 74 ; 
000 f3 ; v03-002 
$009 6 : 
000 £8 ; v03-001 
000 79 ; 
000 80: 
S002 02-001 
0000 Hf ; - 
0000 84 : 
0000 5 :-- 
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TCM0003 Trudy C. Matthews 09-Apr-1984 
Yet another change in RXCS/TXCS mene? "9: use routine 
CONSRELEASECTY to restore the state of the registers. 


PRBO325 Paul Beck 25-Mar-1984 15:59 
Include ''Q'' command to recalculate cluster quorum 


TCm0002 Trudy C. Matthews 13-Dec-1983 
New interface to CONSOWNCTY: it now returns the value to 
covtere to TXCS in RO and the value to restore to RXCS 

n Ri. 


TCMO0001 Trudy C. Matthews 16-Feb-1983 
set ye to talk to console terminal in a CPU-dependent 
ashion. 


LMP0024 L. Mark Pilant 23-Apr-1982 13:45 
Correct a problem introduced by some bit shaving. 

LMP0020 L. Mark Pilant 2-Apr-1982 15:05 
Wod) iy the hegre so that rong | a device that has mount 
verification in progess can be disabled. 

LMP0010 L. Mark Pilant 9-Feb-1982 9:00 


Strip parity and other garbage from incoming characters. 
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MACRO RUMP ADDR 
jmp ADDR :CALLED ROUTINE DOES THE RSB 
-ENDM = RUMP 
g .MACRO CON_MSG ofits AGE , RETURN 
4 MOVAB W*MESSA :SET MESSAGE ADDRESS 
$009 3 m Bee ett SEND THE MESSAGE 
0000 35 .IFF ; 7 
9000 38 RJMP —- (R10) ;SEND THE MESSAGE 
99 .ENDC: B RETURN 
0000 100 .ENDM CON_MSG 
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v04-000 SYMBOL is WNT tons §-§ Ep 1382 88: £9: 4 Yeys. SRCIL BCON ROL .MAR; 1 ad a) 
59 SDEF IPC_L oe -BLKL 1 ;SAVE ORIGINAL TXCS 
60 SDEF IPC-B_P ;BLKB 4 4=<<. IPE C_START>&7> =; LONGWORD GRANULARIT 
6 SDEF 1PC_ * “LENGTH s LENGTH OF COCAL STORAGE 
6 


SDEFEND IPC 
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v04-000 ERROR MESSA 
ser Saxgey aay 
69 76 65 64 20 6C 61 g? §5 6c of 3 
69 66 69 72 65 76 20 74 6E 75 6F 4 
RERKE RSE RR E 
SEE Lee 


00 OA OD 


00 20 3& 43 50 49 


04202000 


{Add dH 
S7FFFFFE S7FFFFFE 
00000000 00000000 00000000 FFFFDB7F 


So 


SOooooooooooooooooooooeo 
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S AND MISC STRINGS 
.SBTTL 
.PSECT 
IPC_ILLCOMMAND : 
~ASCIZ 
IPC_ILLDEVICE: 
ASCIZ 
IPC_NOMNTVER: 
ASCI2 


IPC_NOCLUSTER: 
eASCIZ 


IPC_CRLFSTR: 
~BYTE 


IPC_PROMPT : 
ASCIZ 
.SBTTL 


IPC_V_LEGAL: 
. LONG 


IPC_V_ARROW: 
. LONG 


PS 1obe Osseksst LeveveactiSCONy 


ERROR MESSAGES AND MISC STRINGS 
WMOUNTVERMSG 


\ILlegal command\<13><10> 
\ILlegal device\<13><10> 


\Mount verification not in progress\<13><10> 
\Node not in VAXcluster\<13><10> 


IPC_C_CARRETN,IPC_C_LINFEED,O ;<CR>,<LF>,0 


\IPC> \ 
CHARACTER VALIDITY TABLES 


“AOTFEOONT 3<CR>,<*U>,<*7> 


ore vile: :<SP>.<$>,<0-9>,<:> 

onaeee FFFE,=- :<A-2>, <> 
“XB7FFFFFE 3<a-2>, * <RUB> 
“XFFFFDB7F,0,0,0 3; <BEL>,<LF>,<CR> 


v04-00 
ONTROL .MAR; 1 
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TER AND DISPATCHER -SEP-1 SYS. SRCIT PCONTROL .MAR; 1 (5) 
~SBTTL COMMAND INTERPRETER AND DISPATCHER 


;++ 
EXESIPCONTROL = IPL 12 (DECIMAL) INTERRUPT HANDLER 


THIS MODULE IS CALLED WHEN AN IPL 12 INTERRUPT OCCURS. THIS IS NORMALLY 
INVOKED FROM THE CONSOLE WHEN THE SYSTEM IS IN SOME DEAD LOCK CONDITION. 


1 ERR 
ND INTERPR 
A 1% 
A 409 ; 
A 198 
A 199 : 
ash By 
0 A $f > INPUTS: 
A 5: AN INPUT COMMAND LINE IS ACCEPTED FROM THE CONSOLE FOR ACTION. 
A 09 : OUTPUTS: 
§ A $8 : THE APPROPRIATE ACTION IS TAKEN BASED UPON THE CONSOLE INPUT. 
90 A 10 ; THIS IS: 
008A i : 1) CLEAR MOUNT VERIFICATION ON A SPECIFIED DEVICE 
0 BA 13: @) TRANSFER CONTROL T LTA 
O8A 214: ) REDUCE CLUSTER QU 
08A 215: 4) EXIT (DISMISS THE TPL 12 INTERRUPT) 
O8A 18 : 
Sosa SIR 
0000 900 19 .PSECT WIONONPAGED,LONG 
$00 1 EXESIPCONTROL:: 
OFFF 8F BB 0000 g PUSHR  #*M<RO,R1,R2,R3,R4,R5,R6, R7. RB8,R9,R10,R11> :SAVE ALL REGS 
SE DC AE 9E 0004 MOVAB =IPC_C_LENGTH(SP),SP © :MAKE ROOM FOR LOCAL STORAGE 
58 SE pO 0008 4 MOVL SSAVE ADDRESS OF LOCAL STORAGE BLOCK 
SA O1EO'CF 9E 008 5 MOVAB wW*{PC_OUTPUTZ,R10 SET ADD RESS OF .ASCI1Z OUTPUT ROUTINE 
00000000" EF 16 001 : 10$: JSB CONSOONCTY SET U P CONSOLE TERMINAL REGISTERS 
1—E AB 50 D0 0016 MOVL RO IPC L SAVIXCS(RI1) ‘VALUE TO RESTORE TO TXCS 
1A AB O51~—s=OsCéOOTA : OVL  R1.IPCTL7SAVRXCS(R11) :VALUE TO RESTORE TO RXCS 
56 6B 9E OO1E MOVAB [pC _W_TNPSIZE(RI1).RG iSET ADDRESS OF INPUT STRING SIZE 
57° 02 AB 9E 1 0 MOVAB IPC~T"INPLINE(R11).R7 SET ADDRESS OF INPUT COMMAND BUF 
58 43615 AB OSE «(0025 1 VAB _IPC"B™FLAGS(R11),R8 [SET ADDRESS OF THE FLAG BYTE 
0 9 é CON_MSG 1PC-PRO PT SISSUE A PROMPT 
OODF 30 SBQ  ~=—s IPC “GETLINE [GET A COMMAND LINE FROM THE CONSOLE 
0B 68 02 FI 0 4 BC #IPC_V CNTRL2 (R8),15$ :XFER IF NO CONTROL-Z SEEN 
5E 24 Ar 5 0 5 MOVAB IPC_C_CENGTH(SP),SP SELSE CLEAN THE STACK 
50 (1 0 : BSBB. «dP -ERAB 60 RE-ENABLE THE CONS 
OFFF 8F BA D POPR beazko R ER, R3,R4,R5,R6_R7,RB,RI,R10,R11> RESTORE REGS 
41 33 El [DISMISS THE INTERRUPT 
66 8 4¢ (R6) SANYTHING TYPED? 
CA 4 40 10$ [XFER IF NOT...RE-ISSUE THE PROMPT 
91 0046 241 (R7) ,MIPC_C_CHAR_C TELSE CHECK FOR 
1 4A 4g 30$ [XFER IF NOT 
1 46C 26 1PC_CANCEL ‘ELSE GO CANCEL MOUNT VERII i CATION 
11 4F 4b 0§ [TRY FOR ANOTHER D 
91 005 45 (R7) ,MIPC_C_CHAR_X [XFER TO XDELTA? 
1 4 46 40$ ?XFER 'F NOT 
1 8 4 1PC_ENABLE [GO RE-ENABLE THE CONSOLE 
3 48 w* IRISBRK TELSE CAUSE XDELTA BREAKPOINT 
11 0058 24 10 :TRY FOR ANOTHER COMMAND 
91 005D 20 (R7) ,#IPC_C_CHAR_Q SREDUCE CLUSTER QUORUM? 
12 0061 1 50$ :XFER IF NOT 
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v04=000 COMMAND INTERPRETER AND DISPATCHER eet 1 90:29:84 toys” SRCJIPCONTROL.MAR; 1 &) 
50 00000000'GF p ; : wOVL G5 CLUSGL_ CLUB, RO i ARE tf IN A CLUSTER? 
50 D 4 MOVL CCUBSL -LOCAL CSB(RO) ,RO if NFOtA NODE'S STATUS 
09 6 no” Of E BBS #CSBSV~ NBER, CSBSL Status RO) 838 gMAKE SURE WE ' RE ACTIVE 
‘ i g 42$: CON. MSG PC Noted STE Port ERR RROR: NO i NO! T IN CLUSTER 
ong 30 007 : 45$: BSBW PC FORK_QUORUM + FORK DOWN TO SYNCH TO REDUCE QuORUM 
dD «(11 ; BRB ‘TRY FOR ANOTHER COMMAN 
81 : ILLEGAL COMMAND GIVEN 
p e§ 50$:  CON_MSG 1P¢_ILLCOMMAND ; ISSUE AN ERROR MESSAGE 
FF83 31 A 64 BRW 0$ :GO TRY FOR ANOTHER 
O80 66 ; LOCAL ROUTINE TO RE-ENABLE THE CONSOLE FOR INTERRUPTS 
08D 268 IPC_ENABLE: 
03 8B 008D 9 PUSHR #*M<RO,R1> sSAVE REGISTERS 
50 16 AB DO OOBF 0 MOVL PC_L_SAVTXCS(R11),RO :TO BE RESTORED TO TXCS 
51 1A AB DO 0093 71 MOVL  IPC7L™SAVRXCS(R11).R1  :TO0 BE RESTORED TO RXCS 
00000000" EF 16 0097 ce B CONSRELEASECTY TRESTORE CONSOLE CTY STATE 
3 BA 009D 27 POPR #*M<RO,RI> SRESTORE REGISTERS 
05 O09F 27% RSB :RETURN TO CALLER 
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~SBTTL CANCEL A PENDING MOUNT VERIFICATION 


UTINE DESAGLES MOUNT ie tet ta ne If J 

ING IN THE ‘er IN rane UNT 
E DEVICE UCB le THEM 1 VERIF 
E_IRP AT THE HEAD OF THE "DEVICE 
STATUS BIT SET. 


S i" proentss THIS IS 
IFICATION IS ENABLED 
a IN PROGRESS STATUS 


T 
I 
I UEUE HAS THE MOUNT 


I 
ER 
CA 
RP 


—Dmmww 
=z==aum 


R7 = ADDRESS OF THE CONSOLE INPUT LINE BUFFER 
OUTPUTS: 
H 


MOUNT VERFICATION ° 


E S CLEARED, OR 
WARNING MESSAGE IS I 


1) T IT | 
2) A SUED 


IPC_CANCEL: 
MO 


VL —sR7,RO :SET ADDRESS OF COMMAND LINE 
TSTB = (RO) + [SKIP OVER COMMAND CHARACTER 
CMPB ss (RO) +, #*A/ / SCHECK FOR CORRECT SEPARATOR 
EQL ~=sés«10$ :XFER IF CORRECT 
CON_MSG IPC_ILLCOMMAND,RETURN ISSUE MESSAGE AND RETU 
10$: CMPB (ROT+S RIP _c _UND ER sELSE CHECK FOR AN UNDERS CORE 
BEQL 10% :XFER IF THERE IS ON 
DECL RO SELSE BACK UP OVER NON-UNDERSCORE 
CLRL IPC_Q_DEVICE(R11) TRESET DEVICE NAM 
MOVL  RO,IP at Q DEVICE+4(R11) :SET STARTING ADDRESS OF DEVICE NAME 
20S: CMPB =—s-« (RO) , #TPE_C_CARRETN i END OF THE STRING? 
BEQL 30% :XFER IF S 
CMPB = (RO) +, #IPC_C_COLON AL LTERNATE TERMINATOR? 
BEQL = 3 :XFER IF SO 
INCW JPC_Q_DEVICE(RI1) SELSE COUNT ONE MORE CHARACTER 
BRB 0$ [GO TRY THE NEXT CHARACTER 


: FIND GENERIC DEVICE NAME (WITH CONTROLLER) AND UNIT NUMBER (IN BINARY) 


30$: MOVQ R10,-(SP) ssave R10 & R11 THROUGH SEARCH CALL 


MOVQ IPC_Q DEVICE(R11),R8 3GET DEVICE NAME DESCRIPTO 
MOVQ #1OCSA_PHY! IOCSM_ANY, R10°; 1 ese ae NO AVAILABILITY CHECKS 


BSBW [Ocerensoe een :BARSE er ney ise DEVICE NAME 


BLBC ‘BRANCH 
BSBW TOESSEaRcMINT TSEARCH THE 1/0 DATABASE 
408 mova —s SRESTORE R10 & R11 
BLBC OUT ON ERROR 
CAPS uy $B_DEVCLASS(RS) ,#0CS DTS “1S DEVICE A DISK? 
508: BBC #uc CBsv MNTV RIP sucesu_ st8Uhs) cu LF NO BRANCH IF NOT IN PROGRESS 
60$:  MOVL  UCBS$L_9CB(RS) VB A ADDR 
1 cB2 #iavcBsv Santa. VCBSB STatusstae) (R2) ;ZAP MOUNT VERIFICATION 
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ERR 
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SAGE AND RETURN 
OR AND RETURN 
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~SBTTL COMMAND LINE INPUT ROUTINE 


IPCONTROL acr 
v04-000 YS.SRCJIPCONTROL .MAR; 1 
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IPC_GETLINE = GET A LINE OF INPUT FROM THE CONSOLE 
THIS ROUTINE INPUTS A LINE FROM THE CONSOLE. IT IGNORES LEADING SPACES 
COMPRESSES MULTIPLE S TO SINGLE SPACE, CONVERTS LOWER CASE TO UPPER 
CASE, HANDLES CHARACTER (RUBOUT) AND LINE (CONTROL =U) DELETION, AND CHECKS 
THE LEGALITY OF ANY CHARACTER RECEIVED. 
INPUTS: 
Rg - ADDRES 
R7 = ADDRES 
R11 = ADDRE 
OUTPUTS: 


IPC_W_INPSIZE(R11) = SIZE OF USER INPUT LINE AFTER COMPRESSION 
IPC_T_INPLINE(R11) = STORAGE FOR THE CONSOLE INPUT 
R8 ARE D 


RO,R1,R2, AND RE DESTROYED 
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68 94 (RB) ;RESET ALL FLAGS 
52 57 ~«~»0 R7,R2 :COPY BUFFER ADDRESS 
66 10$: CLRV (R6) ‘RESET INPUT LINE SIZE 
68 02 88 BIS82 #IPC_M NEWLINE, (R8) [NEW LINE ONLY USEFUL FLAG 
50 20 dB 20$: MFPR  #PRS"RRCS,.RO :GET DEVICE STATUS 
F950 O7”sé#€=?D BBC #7,R0,208 :XFER IF NOT READY 
50 Hi D MFPR  #PRS_RXDB,RO ‘ELSE GET THE CHARACTER 
50 FFOO BF B BITW #*XFFOO,RO SERROR OF NOT CONSOLE INPUT? 
EF 1 NEQ [YES, IGNORE 
50 80 8F BA BICB2 #*X80,RO0 :ZAP PARITY BIT IF ANY 
49 OO6A'CF 50. €1 BBC RO,W°LPC_V_LEGAL,70$ | :CHECK LEGALITY 
7F BF) O50 CMPB RO #iPc_C_BELETE :CHECK FOR CHARACTER DELETE 
19 1 BNEQ 356 :XFER IF NOT 
DB 68 O1 € BBS #IPC_V_NEWLINE, (R8) 208 SIGNORE IF NOTHING THERE 
6 68 00 f BBSS #IPC VDELETE, (RB) ,3 $ :XFER IF HERE ONCE ALREADY 
0 SC 8F 9A MOVZBL #*A/S/7R [SET DELIMITER 
68 19 SBB Ipc OUfCHR :TYPE IT OUT 
46 30$:  DECW R6J TANYTHING TO DELETE? 
C 9 D BLSS 108 [XFER IF NOT...SET NEW LINE 
50 9A F MOVZBL -(R2),RO [GET CHARACTER 
62 10 : BSBB PC_OUTCHR :TYPE IT OUT 
£6 11 BRB 0$ :GET NEXT CHARACTER FROM THE CONSOLE 
1A 91 é 35$:  CMPB RO #IPC_C_CNTRLZ TEND OF THE LINE? 
05 1 BNEQ 406 :XFER IF NOT 
68 04 8 B BISB2 #IPC_M_CNTRLZ,(R8) SELSE NOTE IT 
5 BRB 45$ :GO FINISH UP 
15 0 91 016 40$: CMPB RO #1PC_C_CNTRLU SDELETE ENTIRE LINE? 
1 6 BNEQ 50§ :XFER IF NOT 
mw. 4 6 45$:  BSBB  IPC_OUTCHR SECHO “U 
m4 & BSBB Ss PCCRLF SNEW LINE 
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66 B4 0169 394 CLRW = (R6) :NOTHING THERE (FORCE NEW PROMPT) 
5 0168 395 RSB :RETURN TO MAIN ROUTINE 
20 50 91 016¢ 36 50$:  CMPB RO, #IPC_C_SPACE SSPACE CHARACTER? 
A 1 16 9 BNEQ 6 :XFER IF NOT 
A7 68 01 ; 1 l 98 BBS a C_V_NEWLINE,(R8),20$ :XFER IF LEADING SPACE 
20.—s#F F Ae } 17 9 CMPB 0s = 1(R2) 7#IPC_C_SPACE SPREVIOUS CHARACTER A SPACE? 
Al 13 0179 400 BEQL 208 SIGNORE IF SO 
0B se Bl 0178 401 60$:  CMPW § (R6),#IPC_C_MAXLINSIZ TOO MANY CHARACTERS? 
19 O17E 4 ; BLSS  80$ :XFER IF NOT 
50 07 «OA (OT 403 70$:  MOVZBL #IPC_C_BELL.RO tELSE SET NEW CHARACTER 
1 19 1 404 BSBB PC LOUTCHR SLET USER KNO 
11° 01 405 BRB $ :G0 GET THE NEXT CHARACTER 
61 BF 91 01 4 6 80$:  CMPB RO,#IPC_C_LOWERA SLOWER CASE CHARACTER? 
19 0188 4 BLSS. 908 :XFER IF NOT 
50 20 BA 018D 408 BICB2  #*X20,RO0 TELSE CONVERT TO UPPER CASE 
0A 68 00 €1 130 409 90$: BBC #IPC_V_DELETE,(R8),100$ ;FINISH OUT DELETE STRING? 
01 BB 0194 410 PUSHR #*M<ROS YES, SAVE CURRENT CHARACTER 
50 SC BF 9A 0196 411 MOVZBL #*A/\/,RO +SET TERMINATOR 
1A 10 019A a SBB.Cé«dLP’ OUFCHR STYPE IT OUT 
01 BA O019C 41 POPR #*MZRO> SRESTORE ORIGINAL CHARACTER 
82 50 90 O19F 414 100$: MOVB RO,(R2)+ :SAVE THE CHARACTER 
68 O02 BA OIA 415 BICB2 #I1PC_M_NEWLINE, (R8) [NO LONGER EMPTY LINE 
10 10 O1A4 ig BSBB IPC_GUTCHR s; TYPE OUT THE CHARACTER 
0D 50 91 O1K6 41 CMPB = RO, FIPC_C_CARRETN SEND OF THE LINE? 
06 12 OIA 418 NEQ 110$ :XFER IF MORE TO COME 
50 OA 9A O1AB 419 MOVZBL #IPC_C_LINFEED,RO TELSE FOLLOW WITH A <LF> 
06 10 OIAE 420 SBB. Ss IPC_OUTCHR 
05 0180 421 RSB ;RETURN TO CALLER 
66 86 01B1 4 é 110$: INCW (R6) TONE MORE CHARACTER 
FF66 «31 «01B3— 42 BRW 20$ :GO GET ANOTHER 
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IPC_OUTCHR = OUTPUT A SINGLE CHARACTER 


: THIS ROUTINE OUTPUTS A SINGLE CHARACTER 10 THE CONSOLE. IF IS A SPECIAL 
: ACTION CONTROL CHARACTER (CR, OR LF) THEN IT IS TYPED DIRECTLY. 
: OTHERWISE IT IS PRECEEDED BY AN UBS ARROW (*), 
: INPUTS: 
; RO = CHARACTER TO TYPE 
: OUTPUTS: 
; NONE 
: R1 DESTROYED 
IPC_OUTCHR: 
PUSHL RO ;SAVE THE CHARACTER 
BBC (SP) -W" IPC V.ARROW,20$ ;PRECEED WITH AN UP_ ARROW? 
10$:  MFPR  #PRS’TXCS.RI YES GET CONSOL E STATUS 
BBC iXFER IFN READY 
MTPR = #AA\*4 , #PRS_TXDB TELSE TYPE OTE UP A 
BISB2 x00 ( [CONVERT TO A PRINTABLE CHARACTER 
20$:  MFPR  #PR$ TXCS,R1 :GET DEVICE STATUS 
BBC RT, :XFER IF NOT READY 
MTPR (SP) +, #PRS$_TXDB SELSE OUTPUT THE CHARACTER 
RSB TRETURN TO CALLER 
: IPC_CRLF = OUTPUT A <CR,LF> SEQUENCE 
: THIS ROUTINE OUTPUTS A <CR,LF> SEQUENCE TO THE CONSOLE. IT FALLS THROUGH 
+ TO THE STRING OUTPUT ROUTINE TO AVOID THE UNNEEDED SUBROUTINE CALL AND RETURN. 
: (THE RETURN IS DONE BY THE STRING OUTPUT ROUTINE.) 
: INPUTS: 
; NONE 
: OUTPUTS: 
; NONE 
IPC_CRLF : 
MOVAB W*IPC_CRLFSTR,R2 sSET MESSAGE ADDRESS 


;FALL THROUGH INTO STRING ROUTINE 
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MISCELLANEOUS CONSOLE OUTPUT ROUTINES "ergee P=] =}382 89: 28: 23 SYS.SR cif IPCONTROL. MAR; 1 (8) 
1E0 482 ; 
IE 4 ; IPC_OUTPUTZ = TYPE OUT AN .ASCIZ STRING ON THE CONSOLE 
IE 4 5 ; THIS ROUTINE TYPES OUT A ZERO TERMINATED STRING ON THE CONSOLE. 
IE 4 § INPUTS: 
IE 4 e R2 = ADDRESS OF THE STRING TO TYPE 
IE 491 : oUTPUTS: 
iE 138 ; NONE 
160 494: 
3 age i 
1£ 199 IPC_OUTPUTZ: 
9A O16E0 498 MOVZBL (R2)+,RO GET a CHARACTER 
13 0183 «499 BEQL ‘108 :XFER WHEN DONE 
10 O1€ 200 BSBB  —s IPC_OUTCHR :ELSE TYPE OUT THE CHARACTER 
11 OIE? 01 BRB IPC SUTPUTZ GO GET THE NEXT 
05 1E9 208 10$:  —-RSB {RETURN WHEN DONE 
OIA 04 
SIEA 0g Bh 
He 0? : IPC_FORK_QUORUM 
1EA 9 : THIS ROUTINE QUEUES A FORK TO IPL$_SYNCH IN ORDER TO SYNCHRONIZE WITH 
RSE ERS a OR 
SiEA 1g : WHEN THE CLUSTER IS HUNG DUE TO LACK OF QUORUM BECAUSE A NT ICAL NODE HAS 
Bien 514 3 CRASHED aN CANNOT BE REBOOTED. 
sea 13 : INPUTS: 
OIEA 17 ; NONE 
IEA i8 : OUTPUTS: 
1EA 0; 
Bien 13 NONE 
ifn 858: 
A HE ASSuneBUB-TTPE ED ABHY- SHE 
ifA FKB_INIT 4 * s INITIALIZATION FOR FORK BLOCK 
001 1EA § “ «WORD FKBSK_LENGTH ; FKBSW_SIZE 
08 1EC 8 “BYTE DYNSC~FRK : FKBSB-TYPE 
0 TED ; “BYTE IPL$_SYNCH > FKBSB~FIPL 
TEE 1 IPC_FORK_QUORUM: 
TEE iF : ALLOCATE A FORK BLOCK FROM NONPAGED POOL. INITIALIZE IT. 
1 & MOVL $#FKBSK_LENGTH,R1 :LENGTH OF FORK BLOCK 
0° iff 5 JSB G*EXESALONONPAGED :GET THE BL cK 
8 1F7 BLBC — RO, 10 ZF LBC. DIDN'T GET IT. 
DO O1FA 8 MOVL ; [PUT IT WHERE IT BELONGS 
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08 AS EA AF DO OTF : MOVL  FKB_INIT,FKB$W_SIZE(RS) sINIT SIZE, TYPE, FIPL 
4 ; FORK DOWN TO IPLS$_SYNCH ... 
43° FORK ;QUEUE FORK TO IPL$_SYNCH 
a4 tAND RETURN TO CALLER 
4g : AT THIS STAGE, WE ARE EXECUTING IN THE FORK AT IPL SYNCH. 
55 48 5s: PUSHL 5 i SAVE FORK BLOCK POINTER 
1 04 A 54 CLRL. RY QUORUM=0 MEANS Y YOU F LURE IT ouT. 
00000000" Gf if: JSB8 G*CNXSCHANGE_QUORUM :CALL CONNECTION MANAGER 
5 BED POPL RS SRESTORE FORK Block NPOINTER 
1 : : IF WE GET ANY ERROR RETURNED, WAIT ONE SECOND AND RETRY. 
! 2¢ : CONNECTION MANAGER CANNOT ALWAYS DO THIS THE FIRST TIME IT TRIES. 
08 50 €8 021 36 ° BLBS = RO,10$ ;LBS MEANS IT WORKED 
1 FORK_WAIT WALT ONE SECOND 
eB 11 1 58 BRB 5$ TRY AGAIN 
6 360 EVENTUALLY IT WILL WORK (SEZ HERE) 
50 55 v0 61 10$: MOVL _—R5, RO :COPY FORK BLOCK ADDRESS 
00000000 ' GF ig 0 ; 26¢ 138 G*EXESDEANONPAGED : DEALLOCATE THE FORK BLOCK 
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CLUBSL “LOCAL CSB 
ERX SCHANGS .QOORUA 
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CONSRELEASECTY 
CSBSL_STATUS 

CSBSV R 
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! Psect synopsis ! 


fern oremeco sn ere ont 


PSECT name Allocation PSECT No. Attributes 

- ABS . 8° 0000 ( 0.) 00 ¢ -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 

SABSS 4 ¢ 3-3 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE R&D 

WMOUNTVERMSG 0 A ( 138.) § ( <{ NOPIC USR CON REL LCL NOSHR EXE RD 

WIONONPAGED O00022A ( 554.) ( -) NOPIC  USR REL LCL NOSHR EXE RD 
pone mene ecamanncanwmrerccoe a $ 
: Performance indicators ; 

Phase Page faults SPU Time Elapsed Time 

Initialization 44 00: +08 96 0: 8:01 -07 

Command processing G9:00:00.56 0:00:03.9 

Pass 1 391 00:14. 9 :00:43.5 

Symbol table sort :00:02. :00:08.1 

a F table output si :00:00.1 0: ‘OO: 3 

able outpu 00:00. :00:00. 

Psect synopsis quteut : 8 -0 0:00: 6: 

Cross-reference output : 8: 9 0:00: 9-09 

Assembler run totals 651 219, 0:01:07.6 


The working ef Limit was 1350 pages. 

81107 bytes (159 pages) of virtual memory were used to buffer the intermediate co e. 

There were 80 pages of symbol table space allocated to hold 1539 non-local and 34 local symbols. 
5 source lines were read in Pass 1, producing 16 object records in Pass 2. 

27 pages of virtual memory were used to define 26 macros. 
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; Macro Library statistics H 


Macro Library name Macros defined 
$255$DUA28:CSYS.OB8JJLIB.MLB;1 1 
miiitinyy Hester STARLET.MLB;2 j 
TOTALS (all Libraries) 2 


1604 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: IPCONTROL/OBJ=OBJ$: IPCONTROL MSRC$: IPCONTROL/UPDATE=(ENHS$: IPCONTROL) +EXECMLS/LIB 
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